home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Visual Basic new SourceCode and Projects / Vb E-mail Applictation / MAILOPTF.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-04-15  |  9.0 KB  |  270 lines
  1. VERSION 5.00
  2. Begin VB.Form MailOptFrm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Mail Options"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   3060
  7.    ClientTop       =   6060
  8.    ClientWidth     =   7500
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   7500
  14.    Begin VB.PictureBox MessageOption 
  15.       BorderStyle     =   0  'None
  16.       Enabled         =   0   'False
  17.       Height          =   555
  18.       Left            =   3720
  19.       ScaleHeight     =   555
  20.       ScaleWidth      =   3735
  21.       TabIndex        =   12
  22.       TabStop         =   0   'False
  23.       Top             =   0
  24.       Visible         =   0   'False
  25.       Width           =   3735
  26.       Begin VB.CheckBox retRecip 
  27.          Caption         =   "&Return Receipt"
  28.          BeginProperty Font 
  29.             Name            =   "MS Sans Serif"
  30.             Size            =   9.75
  31.             Charset         =   0
  32.             Weight          =   400
  33.             Underline       =   0   'False
  34.             Italic          =   0   'False
  35.             Strikethrough   =   0   'False
  36.          EndProperty
  37.          Height          =   375
  38.          Left            =   960
  39.          TabIndex        =   8
  40.          Top             =   120
  41.          Width           =   1815
  42.       End
  43.    End
  44.    Begin VB.PictureBox GeneralOption 
  45.       BorderStyle     =   0  'None
  46.       Enabled         =   0   'False
  47.       Height          =   2535
  48.       Left            =   0
  49.       ScaleHeight     =   2535
  50.       ScaleWidth      =   3675
  51.       TabIndex        =   11
  52.       TabStop         =   0   'False
  53.       Top             =   0
  54.       Visible         =   0   'False
  55.       Width           =   3675
  56.       Begin VB.CheckBox DownLoad 
  57.          Caption         =   "&Download Mail"
  58.          BeginProperty Font 
  59.             Name            =   "MS Sans Serif"
  60.             Size            =   9.75
  61.             Charset         =   0
  62.             Weight          =   400
  63.             Underline       =   0   'False
  64.             Italic          =   0   'False
  65.             Strikethrough   =   0   'False
  66.          EndProperty
  67.          Height          =   255
  68.          Left            =   120
  69.          TabIndex        =   1
  70.          Top             =   480
  71.          Width           =   3315
  72.       End
  73.       Begin VB.CheckBox NewSess 
  74.          Caption         =   "&New Session"
  75.          BeginProperty Font 
  76.             Name            =   "MS Sans Serif"
  77.             Size            =   9.75
  78.             Charset         =   0
  79.             Weight          =   400
  80.             Underline       =   0   'False
  81.             Italic          =   0   'False
  82.             Strikethrough   =   0   'False
  83.          EndProperty
  84.          Height          =   255
  85.          Left            =   120
  86.          TabIndex        =   2
  87.          Top             =   840
  88.          Width           =   3195
  89.       End
  90.       Begin VB.CheckBox LogonUI 
  91.          Caption         =   "&Logon UI"
  92.          BeginProperty Font 
  93.             Name            =   "MS Sans Serif"
  94.             Size            =   9.75
  95.             Charset         =   0
  96.             Weight          =   400
  97.             Underline       =   0   'False
  98.             Italic          =   0   'False
  99.             Strikethrough   =   0   'False
  100.          EndProperty
  101.          Height          =   315
  102.          Left            =   120
  103.          TabIndex        =   3
  104.          Top             =   1200
  105.          Width           =   3135
  106.       End
  107.       Begin VB.TextBox UserName 
  108.          BeginProperty Font 
  109.             Name            =   "System"
  110.             Size            =   9.75
  111.             Charset         =   0
  112.             Weight          =   700
  113.             Underline       =   0   'False
  114.             Italic          =   0   'False
  115.             Strikethrough   =   0   'False
  116.          EndProperty
  117.          Height          =   360
  118.          Left            =   1380
  119.          TabIndex        =   5
  120.          Top             =   1620
  121.          Width           =   2115
  122.       End
  123.       Begin VB.TextBox MailPassWord 
  124.          BeginProperty Font 
  125.             Name            =   "System"
  126.             Size            =   9.75
  127.             Charset         =   0
  128.             Weight          =   700
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          Height          =   360
  134.          IMEMode         =   3  'DISABLE
  135.          Left            =   1380
  136.          PasswordChar    =   "*"
  137.          TabIndex        =   7
  138.          Top             =   2040
  139.          Width           =   2115
  140.       End
  141.       Begin VB.CheckBox SendMapiDLG 
  142.          Caption         =   "&Send with MAPI Dialogs"
  143.          BeginProperty Font 
  144.             Name            =   "MS Sans Serif"
  145.             Size            =   9.75
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          Height          =   315
  153.          Left            =   120
  154.          TabIndex        =   0
  155.          Top             =   60
  156.          Width           =   3255
  157.       End
  158.       Begin VB.Label Label1 
  159.          AutoSize        =   -1  'True
  160.          BackStyle       =   0  'Transparent
  161.          Caption         =   "&User Name:"
  162.          BeginProperty Font 
  163.             Name            =   "MS Sans Serif"
  164.             Size            =   9.75
  165.             Charset         =   0
  166.             Weight          =   400
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          Height          =   240
  172.          Left            =   120
  173.          TabIndex        =   4
  174.          Top             =   1740
  175.          Width           =   1080
  176.       End
  177.       Begin VB.Label Label2 
  178.          AutoSize        =   -1  'True
  179.          BackStyle       =   0  'Transparent
  180.          Caption         =   "&Password:"
  181.          BeginProperty Font 
  182.             Name            =   "MS Sans Serif"
  183.             Size            =   9.75
  184.             Charset         =   0
  185.             Weight          =   400
  186.             Underline       =   0   'False
  187.             Italic          =   0   'False
  188.             Strikethrough   =   0   'False
  189.          EndProperty
  190.          Height          =   240
  191.          Left            =   240
  192.          TabIndex        =   6
  193.          Top             =   2160
  194.          Width           =   945
  195.       End
  196.    End
  197.    Begin VB.CommandButton CancelBt 
  198.       Cancel          =   -1  'True
  199.       Caption         =   "Cancel"
  200.       Height          =   375
  201.       Left            =   1980
  202.       TabIndex        =   10
  203.       Top             =   2640
  204.       Width           =   1035
  205.    End
  206.    Begin VB.CommandButton OkBt 
  207.       Caption         =   "OK"
  208.       Default         =   -1  'True
  209.       Height          =   375
  210.       Left            =   720
  211.       TabIndex        =   9
  212.       Top             =   2640
  213.       Width           =   1035
  214.    End
  215. Attribute VB_Name = "MailOptFrm"
  216. Attribute VB_GlobalNameSpace = False
  217. Attribute VB_Creatable = False
  218. Attribute VB_PredeclaredId = True
  219. Attribute VB_Exposed = False
  220. Private Sub CancelBt_Click()
  221.     ' Unload the current form, and don't save changes.
  222.     Unload Me
  223. End Sub
  224. Private Sub Form_Load()
  225.     ' Setup initial values for the check boxes and edit fields.
  226.     UserName = VBMail.MapiSess.UserName
  227.     MailPassWord = VBMail.MapiSess.Password
  228.     NewSession = Abs(VBMail.MapiSess.NewSession)
  229.     LogonUI = Abs(VBMail.MapiSess.LogonUI)
  230.     DownLoadMail = Abs(VBMail.MapiSess.DownLoadMail)
  231.     SendMapiDLG = Abs(SendWithMapi)
  232.     retRecip = Abs(ReturnRequest)
  233.     Select Case OptionType
  234.         Case conOptionMessage
  235.             Call SetupOptionForm(MessageOption)
  236.         Case conOptionGeneral
  237.             Call SetupOptionForm(GeneralOption)
  238.     End Select
  239. End Sub
  240. Private Sub Form_Unload(Cancel As Integer)
  241.     Select Case OptionType
  242.         Case conOptionMessage
  243.             Call SetupOptionForm(MessageOption)
  244.         Case conOptionGeneral
  245.             Call SetupOptionForm(GeneralOption)
  246.     End Select
  247. End Sub
  248. Private Sub OkBt_Click()
  249.     ' Save the user's changes.
  250.     ' Feature addition: Save values to an .INI file.
  251.     VBMail.MapiSess.UserName = UserName
  252.     VBMail.MapiSess.Password = MailPassWord
  253.     VBMail.MapiSess.NewSession = NewSession
  254.     VBMail.MapiSess.LogonUI = LogonUI
  255.     VBMail.MapiSess.DownLoadMail = DownLoadMail
  256.     SendWithMapi = SendMapiDLG
  257.     ReturnRequest = retRecip
  258.     Unload Me
  259. End Sub
  260. Private Sub SetupOptionForm(BasePic As Control)
  261.     BasePic.Top = 0
  262.     BasePic.Left = 0
  263.     BasePic.Visible = True
  264.     BasePic.Enabled = True
  265.     OkBt.Top = BasePic.Height + 120
  266.     CancelBt.Top = BasePic.Height + 120
  267.     Me.Width = BasePic.Width + 120
  268.     Me.Height = OkBt.Top + OkBt.Height + 495
  269. End Sub
  270.